home *** CD-ROM | disk | FTP | other *** search
- ;============================================================================;
- ; PSCalc Installscript by N. DARNIS ;
- ; $VER: PSCalc-Install 1.45 (30.06.1997) ;
- ;============================================================================;
-
- (set #pscalc-default-dest "SYS:Tools/Commodities")
- (set #key-dest1 "keyfiles:")
- (set #key-dest2 "s:")
-
- (set #html-default-dest "html:PSCalc/")
- (set #pscalc-src "/PSCalc")
- (set #doc-icon4-src "/icones/PSCalc.guide4.info")
- (set #doc-icon8-src "/icones/PSCalc.guide8.info")
-
- (set #key-src "/PSCalc.key_file")
- (set #key-src-icon "/icones/PSCalc.key_file.info")
-
- (set #cat-locale "LOCALE:catalogs/")
-
- (set #en "English")
- (set #doc-en-src "/help/english/PSCalc.guide")
- (set #doc-en-dest "HELP:english")
- (set #doc-en-html "/help/english/")
- (set #img-en-src "/help/english/")
- (set #cat-temp "/pscalc.cd")
-
- (set #fr "Français")
- (set #doc-fr-src "/help/français/PSCalc.guide")
- (set #doc-fr-dest "HELP:français")
- (set #doc-fr-html "/help/français/")
- (set #cat-fr-src "/catalogs/français/pscalc.catalog")
- (set #cat-fr-dest "LOCALE:catalogs/français")
- (set #img-fr-src "/help/français/")
- (set #cat-fr-temp "/pscalc_francais.ct")
-
- (set #sw "Svenska")
- (set #doc-sw-src "/help/svenska/PSCalc.guide")
- (set #doc-sw-dest "HELP:svenska")
- (set #doc-sw-html "/help/svenska/")
- (set #cat-sw-src "/catalogs/svenska/pscalc.catalog")
- (set #cat-sw-dest "LOCALE:catalogs/svenska")
- (set #img-sw-src "/help/svenska/")
- (set #cat-sw-temp "/pscalc_svenska.ct")
-
- (if (= @language "français")
- (set #lg-default 1)
- )
-
- (if (= @language "english")
- (set #lg-default 0)
- )
-
- (if (= @language "svenska")
- (set #lg-default 2)
- )
-
- (if (= @language "français")
-
- ;================================ FRANCAIS ==================================;
-
- (
- (set #lg "Dans quel langage souhaitez-vous installer PSCalc?")
- (set #lg-help "Vous pouvez choisir un des langages de la liste proposée.")
-
- (set #pscalc-icon4-src "/icones/PSCalc_f4.info")
- (set #pscalc-icon8-src "/icones/PSCalc_f8.info")
-
- (set #welcome
- (cat
- "\nBienvenue à l'installation de PSCalc V1.45.\n\n"
- "Ecrit par N. DARNIS,\ndistribué par QUARTZ Informatique.\n"
- )
- )
-
- (set #pscalc-dir "Dans quel répertoire voulez-vous installer PSCalc?")
- (set #pscalc-dir-help
- (cat
- "Il s'agit du répertoire de destination de PSCalc.\n"
- "Normalement PSCalc devrait être dans SYS:WBStartup ou dans SYS:Tools/Commodities"
- )
- )
-
- (set #doc-type "Quel(s) type(s) de documentation désirez-vous installer?")
- (set #doc-type-help
- (cat
- "Vous pouvez choisir le format AmigaGuide et/ou le format html.\n"
- "Vous devriez au moins installer le format AmigaGuide car il est nécessaire pour l'aide en ligne."
- )
- )
-
- (set #doc-ag-dir "Dans quel répertoire voulez-vous copier la documentation AmigaGuide?")
- (set #doc-ag-dir-help
- (cat
- "Il s'agit du répertoire de destination de la documentation au format AmigaGuide.\n"
- "Normalement la documentation doit se trouver dans HELP:<votre langue>\n"
- "Assurez-vous d'avoir AmigaGuide® ou MultiView® pour lire la documentation AmigaGuide."
- )
- )
-
- (set #doc-ht-dir "Dans quel répertoire voulez-vous copier la documentation HTML?")
- (set #doc-ht-dir-help
- (cat
- "Il s'agit du répertoire de destination de la documentation au format HTML.\n"
- "Vous pouvez placer les fichiers html où bon vous semble.\n"
- "Assurez-vous d'avoir Voyager ou IBrowse pour lire la documentation HTML."
- )
- )
-
- (set #key-dir "Dans quel répertoire voulez-vous copier le fichier clé?")
- (set #key-dir-help
- (cat
- "Il s'agit du répertoire de destination du fichier clé.\n"
- "Vous pouvez choisir entre s: et keyfiles:"
- )
- )
-
- (set #icon-select "Choisissez le type d'icone que vous désirez:")
- (set #icon-select-help
- (cat
- "Vous pouvez choisir les icones Magic Workbench (8 couleurs)\n"
- "ou les icones standards en 4 couleurs."
- )
- )
-
- (set #icons-normal "Normal (4 couleurs)")
- (set #icons-mwb "Magic Workbench (8 couleurs)")
-
- (set #bad-kick "Vous devez posséder le Kickstart 3.0 ou supérieur pour installer PSCalc.")
- (set #install-exit "Merci d'utiliser PSCalc...")
- )
-
- ;================================= ENGLISH ==================================;
-
- (
- (set #lg "Which language do you prefer for use within PSCalc?")
- (set #lg-help "You can choose one of the language in the list.")
-
- (set #pscalc-icon4-src "/icones/PSCalc_e4.info")
- (set #pscalc-icon8-src "/icones/PSCalc_e8.info")
-
- (set #welcome
- (cat
- "\nWelcome to the install utility of PSCalc V1.45.\n\n"
- "Written by N. DARNIS, distributed by QUARTZ Informatique.\n"
- )
- )
-
- (set #pscalc-dir "In which drawer do you want to install PSCalc?")
- (set #pscalc-dir-help
- (cat
- "It's the destination drawer of PSCalc.\n"
- "Usually, PSCalc should goes to SYS:WBStartup or to SYS:Tools/Commodities."
- )
- )
-
- (set #doc-type "Which type(s) of documentation do you want to install?")
- (set #doc-type-help
- (cat
- "You can choose AmigaGuide format and/or html format.\n"
- "You should always install the AmigaGuide format because it's needed by online help."
- )
- )
-
- (set #doc-ag-dir "In which drawer do you want to install the AmigaGuide documentation?")
- (set #doc-ag-dir-help
- (cat
- "It's the destination drawer of the AmigaGuide documentation.\n"
- "Usually, the documentation must go to HELP:<your language>\n"
- "Be sure to have AmigaGuide® or MultiView® to view the AmigaGuide documentation."
- )
- )
-
- (set #doc-ht-dir "In which drawer do you want to install the HTML documentation?")
- (set #doc-ht-dir-help
- (cat
- "It's the destination drawer of the HTML documentation.\n"
- "You can put the HTML documentation where you want.\n"
- "Be sure to have Voyager or IBrowse to view the HTML documentation."
- )
- )
-
- (set #key-dir "In which drawer do you want to install the keyfile?")
- (set #key-dir-help
- (cat
- "It's the destination drawer of the keyfile.\n"
- "You can choose between s: and keyfiles:"
- )
- )
-
- (set #icon-select "Choose the icons you wish to install:")
- (set #icon-select-help
- (cat
- "You can choose between Magic Workbench icons (8 colors)\n"
- "and normal icons (4 colors)."
- )
- )
-
- (set #icons-normal "Normal (4 colors)")
- (set #icons-mwb "Magic Workbench (8 colors)")
-
- (set #bad-kick "You need at least Kickstart 3.0 in order to install PSCalc.")
- (set #install-exit "Thank you for using PSCalc...")
- )
- ) ; if language = french
-
- ;============================== PROGRAM-START ===============================
-
- (welcome #welcome)
-
- (complete 0)
-
- ; Target directory of PSCalc
-
- (set #pscalc-dir-name
- (if (>= @user-level 2)
- (
- (askdir
- (prompt #pscalc-dir)
- (help #pscalc-dir-help)
- (default #pscalc-default-dest)
- )
- )
- #pscalc-default-dest
- )
- )
- (complete 10)
- (copyfiles
- (source #pscalc-src)
- (dest #pscalc-dir-name)
- )
-
- (complete 20)
-
- ; Select the target directory of the keyfile
-
- (set #key-dir-name
- (if (>= @user-level 2)
- (
- (askchoice
- (prompt #key-dir)
- (help #key-dir-help)
- (choices #key-dest1 #key-dest2)
- (default 1)
- )
- )
- 1
- )
- )
- (complete 30)
- (if (= #key-dir-name 0)
- (
- (copyfiles
- (source #key-src)
- (dest #key-dest1)
- )
- (copyfiles
- (source #key-src-icon)
- (dest #key-dest1)
- )
- )
- (
- (copyfiles
- (source #key-src)
- (dest #key-dest2)
- )
- (copyfiles
- (source #key-src-icon)
- (dest #key-dest2)
- )
- )
- )
-
- (complete 40)
-
- ; Select icon type
-
- (set #icon-type
- (if (>= @user-level 2)
- (
- (askchoice
- (prompt #icon-select)
- (help #icon-select-help)
- (choices #icons-mwb #icons-normal)
- (default 1)
- )
- )
- 1
- )
- )
- (complete 50)
- (if (= #icon-type 1)
- (
- (copyfiles
- (source #pscalc-icon4-src)
- (dest #pscalc-dir-name)
- (newname "PSCalc.info")
- )
- )
- (
- (copyfiles
- (source #pscalc-icon8-src)
- (dest #pscalc-dir-name)
- (newname "PSCalc.info")
- )
- )
- )
-
- (complete 60)
-
- ; Select language
-
- (set #lg-choice
- (askchoice
- (prompt #lg)
- (help #lg-help)
- (choices #en #fr #sw)
- (default #lg-default)
- )
- )
-
- (if (= #lg-choice 0)
- (set #doc-default-dest #doc-en-dest)
- )
-
- (if (= #lg-choice 1)
- (set #doc-default-dest #doc-fr-dest)
- (set #cat-default-dest #cat-fr-dest)
- )
-
- (if (= #lg-choice 2)
- (set #doc-default-dest #doc-sw-dest)
- (set #cat-default-dest #cat-sw-dest)
- )
-
- (complete 70)
-
- ; Formats of documentation
-
- (set #doc-type
- (if (>= @user-level 2)
- (
- (askoptions
- (prompt #doc-type)
- (help #doc-type-help)
- (choices "AmigaGuide" "html")
- (default 1)
- )
- )
- 1
- )
- )
-
- (complete 80)
-
- ; AmigaGuide documentation installation
-
- (if (in #doc-type 0)
- ( ; Select the target directory for AmigaGuide documentation
- (set #doc-ag-dir-name
- (if (>= @user-level 2)
- (
- (askdir
- (prompt #doc-ag-dir)
- (help #doc-ag-dir-help)
- (default #doc-default-dest)
- )
- )
- #doc-default-dest
- )
- )
-
- ; English
- (if (= #lg-choice 0)
- (
- (copyfiles
- (source #doc-en-src)
- (dest #doc-ag-dir-name)
- )
- (copyfiles
- (source #img-en-src)
- (dest #doc-ag-dir-name)
- (pattern "fen#?_image")
- )
- )
- )
-
- ; Français
- (if (= #lg-choice 1)
- (
- (copyfiles
- (source #doc-fr-src)
- (dest #doc-ag-dir-name)
- )
- (copyfiles
- (source #img-fr-src)
- (dest #doc-ag-dir-name)
- (pattern "fen#?_image")
- )
- )
- )
-
- ; Svenska
- (if (= #lg-choice 2)
- (
- (copyfiles
- (source #doc-sw-src)
- (dest #doc-ag-dir-name)
- )
- (copyfiles
- (source #img-sw-src)
- (dest #doc-ag-dir-name)
- (pattern "fen#?_image")
- )
- )
- )
-
- ; Icons
- (if (= #icon-type 1)
- (
- (copyfiles
- (source #doc-icon4-src)
- (dest #doc-ag-dir-name)
- (newname "PSCalc.guide.info")
- )
- )
- (
- (copyfiles
- (source #doc-icon8-src)
- (dest #doc-ag-dir-name)
- (newname "PSCalc.guide.info")
- )
- )
- )
- )
- )
-
- (complete 85)
-
- ; HTML documentation installation
-
- (if (in #doc-type 1)
- ( ; Select the target directory for HTML documentation
- (set #doc-ht-dir-name
- (if (>= @user-level 2)
- (
- (askdir
- (prompt #doc-ht-dir)
- (help #doc-ht-dir-help)
- (default #html-default-dest)
- )
- )
- #doc-default-dest
- )
- )
-
- ; English
- (if (= #lg-choice 0)
- (
- (copyfiles
- (source #doc-en-html)
- (dest #doc-ht-dir-name)
- (pattern "#?.html")
- )
- (copyfiles
- (source #img-en-src)
- (dest #doc-ht-dir-name)
- (pattern "fen#?_image")
- )
- )
- )
-
- ; Français
- (if (= #lg-choice 1)
- (
- (copyfiles
- (source #doc-fr-html)
- (dest #doc-ht-dir-name)
- (pattern "#?.html")
- )
- (copyfiles
- (source #img-fr-src)
- (dest #doc-ht-dir-name)
- (pattern "fen#?_image")
- )
- )
- )
-
- ; Svenska
- (if (= #lg-choice 2)
- (
- (copyfiles
- (source #doc-sw-html)
- (dest #doc-ht-dir-name)
- (pattern "#?.html")
- )
- (copyfiles
- (source #img-sw-src)
- (dest #doc-ht-dir-name)
- (pattern "fen#?_image")
- )
- )
- )
- )
- )
-
- (complete 90)
-
- (if (= #lg-choice 1)
- (
- (copyfiles
- (source #cat-fr-src)
- (dest #cat-fr-dest)
- )
- (copyfiles
- (source #cat-fr-temp)
- (dest #cat-fr-dest)
- (newname "PSCalc.ct")
- )
- )
- )
-
- (if (= #lg-choice 2)
- (
- (copyfiles
- (source #cat-sw-src)
- (dest #cat-sw-dest)
- )
- (copyfiles
- (source #cat-sw-temp)
- (dest #cat-sw-dest)
- (newname "PSCalc.ct")
- )
- )
- )
-
- (copyfiles
- (source #cat-temp)
- (dest #cat-locale)
- (newname "PSCalc.cd")
- )
-
- (complete 100)
-
- (message #install-exit)
-
-